#!/usr/bin/perl
# Show a page for manually editing smb.conf

require '../netebbms-lib.pl';

&ReadParse();

# show header
&ui_print_header(undef, $text{'twitterbot_title'}, '', undef, 1, 1);


# Show the file contents

print &ui_form_start('save_twitterbot.cgi', 'get');
print &ui_table_start('基本設定', undef, 2);


print &ui_table_row('コンシューマ キー', &ui_textbox('consumer_key', undef, 40));
print &ui_table_row('コンシューマ シークレット', &ui_textbox('consumer_secret', undef, 40));
print &ui_table_row('&nbsp;', &ui_button('アクセストークンを取得', 'get_access_token'));
print &ui_table_row('&nbsp;', '&nbsp;');





# IP address
#print &ui_table_row($text{'index_newaddr'},
#	&ui_radio("addr_def", 2,
#	[ [ 1, "$text{'index_any1'}<br>" ],
#	[ 2, "$text{'index_any2'}<br>" ],
#	[ 0, $text{'index_any0'}." ".
#	&ui_textbox("addr", undef, 40) ] ])."<br>\n".
#	&ui_checkbox("nv", 1, $text{'index_nv'}, 1)."<br>".
#	&ui_checkbox("listen", 1, $text{'index_listen'}, 1));
#
#
## Work out sensible default port
#
## Port
#print &ui_table_row($text{'index_port'},
#	&choice_input(@nvports ? 2 : 0,
#	"port_mode", "0",
#	"$text{'index_default'},0",
#	"$text{'index_any'},1", ",2").
#	&ui_textbox("port", @nvports ? $nvports[0] : undef, 5));
#
## Document root
#print &ui_table_row($text{'index_root'},
#	&ui_textbox("root", undef, 40)." ".
#	&file_chooser_button("root", 1, $formno)."<br>".
#	&ui_checkbox("adddir", 1, $text{'index_adddir'}, 1));
#
## Server name
#print &ui_table_row($text{'index_name'}, &opt_input("", "name", $text{'index_auto'}, 30));
#
#
## Add to file
#print &ui_table_row($text{'index_file'},
#	&ui_radio("fmode", $config{'virt_file'} ? 1 : 0,
#	[ [ 0, &text('index_fmode0', "<tt>httpd.conf</tt>")."<br>" ],
#	$config{'virt_file'} ? (
#	[ 1, &text(-d $config{'virt_file'} ? 'index_fmode1d'
#	: 'index_fmode1',
#	"<tt>$config{'virt_file'}</tt>")."<br>" ] ) :     ( ),
#	[ 2, $text{'index_fmode2'}." ".
#	&ui_textbox("file", undef, 40)." ".
#	&file_chooser_button("file", 0, $formno) ] ]));
#
## Server to clone
#print &ui_table_row($text{'index_clone'},
#	&ui_select("clone", undef,
#	[ [ undef, $text{'index_noclone'} ],
#	map { [ &indexof($_, @$conf), $cname{$_} ] } @virt ]));
#


print &ui_table_end();

print &ui_form_end([[ 'save', $text{'save'} ]]);


# show footer
&ui_print_footer('', $text{'index_title'});

